home *** CD-ROM | disk | FTP | other *** search
/ Tux Racer / Tux Racer.iso / program files / Sunspire Studios / Tux Racer / courses / common / courseinit.tcl < prev    next >
Encoding:
Text File  |  2001-09-13  |  1.4 KB  |  65 lines
  1. # Course initialization script
  2. # Sets basic course paramaters before the lighting is set.
  3.  
  4. set cwd [pwd]
  5.  
  6. # Extract cup directory
  7. if { ![regexp {^(.*)/[^/]*/?} $cwd dummy cup_dir] } {
  8.     tux_warning "Couldn't determine cup directory"
  9.  
  10.     set cup_dir "$tux_data_dir/courses"
  11. }
  12.  
  13. tux_goto_data_dir
  14.  
  15. cd courses/common
  16.  
  17. #
  18. # Lighting
  19. #
  20. set conditions [tux_get_race_conditions]
  21. if { $conditions == "sunny" } {
  22.     source $cup_dir/sunny_light.tcl
  23. } elseif { $conditions == "cloudy" } {
  24.     source $cup_dir/foggy_light.tcl
  25. } elseif { $conditions == "night" } {
  26.     source $cup_dir/sunset_light.tcl
  27. } 
  28.  
  29. #
  30. # Music
  31. #
  32. if [file exists $cup_dir/music.tcl] {
  33.     source $cup_dir/music.tcl
  34. } else {
  35.     select_racing_music 1
  36. }
  37.  
  38. source procs.tcl
  39.  
  40. source sounds.tcl
  41.  
  42. objcall :servers:render set_loading_text [ gs loading_terrain_textures]
  43. source terrain_textures.tcl
  44.  
  45. objcall :servers:render set_loading_text [ gs loading_terrains]
  46. source terrains.tcl
  47.  
  48. objcall :servers:render set_loading_text [ gs loading_object_textures]
  49. source object_textures.tcl
  50.  
  51. objcall :servers:render set_loading_text [ gs loading_objects]
  52. source objects.tcl
  53.  
  54. objcall :servers:render set_loading_text [ gs loading_terrain_map]
  55.  
  56. objcall :course:heightmap load_terrain "$cwd/terrain.png"
  57.  
  58. objcall :servers:render set_loading_text [ gs placing_objects]
  59.  
  60. cd $cwd
  61.  
  62. if [file exists "items.tcl"] {
  63.     source "items.tcl"
  64. }
  65.